home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / ISLAND.TCL < prev    next >
Encoding:
Text File  |  2002-08-01  |  1.6 KB  |  64 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Island
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12. proc islandwatch_normal {} {
  13.  
  14.     if {[.iskilled] == "true"} {
  15.         .announcestate explode
  16.     }
  17. }    
  18.  
  19. proc islandwatch_explode {} {
  20.  
  21.     # there is currently no animation, so we remove the island
  22.     # in a depth of 1000 meters
  23.     set island_pos [.getposition]
  24.     if {[lindex $island_pos 1] < -1000} {
  25.         .setremoveable true
  26.     }
  27. }    
  28.  
  29. proc islandwatch_cinematic {} {
  30.  
  31.     if {[.iscinematicfinished] == "true"} {
  32.         .announcestate normal
  33.     }
  34. }    
  35.  
  36.  
  37. # -----------------------------------------------------------------------
  38.  
  39. # kills all buildings on this island. Called as ActivateCommand of the
  40. # islands explode state
  41. proc killallbuildings {} {
  42.  
  43.     set nextvehicle ""
  44.     for {set child [.getfirstvehicle]} {$child != "null"} {set child $nextvehicle} {
  45.     
  46.         # store nextvehicle
  47.         set nextvehicle [.getnextvehicle $child]
  48.         
  49.         # do energy reduction on everything except maennel
  50.         if {[$child.isvehicleclass "concret.technical.dynamic.maennel"] == "false"} {
  51.         
  52.             # because of negative object energies, reduce at first energy
  53.             # and then 10 points again
  54.             set energy   [$child.getenergy]
  55.             set safekill 10
  56.             $child.reduceenergy $energy
  57.             $child.reduceenergy $safekill
  58.  
  59.             # remove artefact from island in this case
  60.             .removechildvehicle $child
  61.         }
  62.     }
  63. }
  64.